Código fuente de 'Crea fichero con contenido.asp'
<html>
<head>
<title>Crea fichero con contenido - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Crea fichero con contenido</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
Crea un fichero en la carpeta actual llamado: 'fichtexto.txt' con dos líneas de
contenido<br><br>
<% 'Código ASP
'Declaración de variables
Dim objFSO , myFile
'Crea instancia de FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Crea un fichero de texto llamado fichtexto.txt en c:\
'Set myFile = objFSO.CreateTextFile("d:\fichtexto.txt", True)
Set myFile = objFSO.CreateTextFile(server.mappath(".\fichtexto.txt"), True)
'Escribe un par de líneas en el fichero
myFile.WriteLine("Ejemplo de texto")
myFile.WriteLine("Otra línea de ejemplo")
myFile.Close
'Destruye los objetos
Set myFile = Nothing
Set objFSO = Nothing
'Fin código ASP %>
<br>
</body>
</html>